home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
CICA 1993 April
/
CICA MS Windows - April 1993.iso
/
unzipped
/
programr
/
vbasic
/
filebox
/
filebox.frm
(
.txt
)
< prev
next >
Wrap
Visual Basic Form
|
1991-10-22
|
5KB
|
106 lines
FileBox
Open File
Form1,
Label2
File Name:
Text1
Label3
Files:
Label1
File1
Label4
Directories:
List1
Drive1
Command2
Command1
&Cancel
LastChange
CurDirectory$
ASCII_ENTER4
WM_USER
LB_RESETCONTENT
SendMessageT
wParam
lParam2
GetFocus
PutFocus
Drive1_ChangeL
Dir1G
Patha
Drive1
Drive
List1_Update
Dir1_Change
File1
Label1v
Captions
Command2_Click
Command1_Click
Form_Load
RefreshFiles
Text1
SelStart!
SelLength+
Text1_LostFocus
Patternj
Text1_KeyPress
KeyAscii
ClearListBox
List1
DirPos
ListCount
DiskStart
FindLast
needle
haystack
List1_DblClick
ListIndex
Visible
hWndOld
List1_KeyPress
FBox_Click
DBox_Click
NBox_Click
Command3_Click-
CommandN_GotFocusB
CommandF_GotFocus
CommandD_GotFocus
FILEBOX declarations and constantsd
SetFocus
Drive1_Change
Dir1_Change
Command2_Click
OK button pressed
Command1_Click
Cancel button pressed
Form_Load
Text1_LostFocus
RefreshFiles
If File1.ListIndex >= 0 Then
Path$ = Dir1.Path
If Right$(Path$, 1) = "\" Then
Label1.Caption = Dir1.Path + File1.Filename
Elseb
Label1.Caption = Dir1.Path + "\" + File1.Filename
End If
Else
Label1.Caption = " "
End If1
Text1_KeyPress
List1_Update
FindLast
List1_DblClick
Change to the parent directory
This is a drive spec
This is a subdirectory of the current directory
ClearListBox
List1_KeyPress
FBox_Click
DBox_Click
NBox_Click
Command3_Click
CommandN_GotFocus
CommandF_GotFocus
CommandD_GotFocus